home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1987 September & October / rerun-1987-09-10a.d64 / 64 function keys (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  55 lines
  1. 10 rem c-64 function keys
  2. 20 rem redefine 64 keys similiar to 128 keys
  3. 70 print"[147]":forx=52772to53242:reada:pokex,a:ct=ct+a:print"poking..."x:next
  4. 80 ifct<>57586thenprint"[147]error somewhere in data statements!":stop
  5. 90 print"[147]c64 function keys redefinition installed":a$=""
  6. 100 print"sys 52800 to re-enable keys at any time.":sys52800
  7. 110 printa$"f1=text or hi-res screen":printa$"f2=load a program""
  8. 120 [153]a$"f3=view disk directory":[153]a$"f4=change border color"
  9. 130 [153]a$"f5=save a program":[153]a$"f6=run current program"
  10. 140 [153]a$"f7=list current program":[153]a$"f8=change background color":[162]
  11. 150 [131] 82,69,65,68,32,69,82,82,79,82,33,0
  12. 160 [131] 32,66,76,79,67,75,83,32,70,82,69,69,46,13,13,0
  13. 170 [131] 120,169,77,141,20,3,169,206,141,21,3,88,96
  14. 180 [131] 165,203,201,4,208,11,173,141,2,208,3,76,154,206,76,186,206
  15. 190 [131] 201,5,208,11,173,141,2,208,3,76,68,207,76,208,206
  16. 200 [131] 201,6,208,11,173,141,2,208,3,76,234,206,76,0,207
  17. 210 [131] 201,3,208,11,173,141,2,208,3,76,22,207,76,44,207,76,49,234
  18. 220 [143] delay loop
  19. 230 [131] 120,32,159,255,165,203,201,64,208,247,88,96
  20. 240 [143] f1 graphic
  21. 250 [131] 32,142,206,173,17,208,41,32,208,11,173,17,208
  22. 260 [131] 9,32,141,17,208,76,49,234,173,17,208,41,223,141,17,208,76,49,234
  23. 270 [143] f2 load
  24. 280 [131] 32,142,206,169,241,160,207,32,30,171,169,34,141,119,2
  25. 290 [131] 169,1,133,198,76,49,234
  26. 300 [143] f4 border
  27. 310 [131] 32,142,206,173,32,208,41,15,201,15,240,6,238,32,208
  28. 320 [131] 76,49,234,169,0,141,32,208,76,49,234
  29. 330 [143] f5 save
  30. 340 [131] 32,142,206,169,236,160,207,32,30,171,169,34,141,119,2
  31. 350 [131] 169,1,133,198,76,49,234
  32. 360 [143] f6 run
  33. 370 [131] 32,142,206,169,232,160,207,32,30,171,169,13,141,119,2
  34. 380 [131] 169,1,133,198,76,49,234
  35. 390 [143] f7 list
  36. 400 [131] 32,142,206,169,246,160,207,32,30,171,169,13,141,119,2
  37. 410 [131] 169,1,133,198,76,49,234
  38. 420 [143] f8 background
  39. 430 [131] 32,142,206,173,32,208,41,15,240,6,238,33,208,76,49,234
  40. 440 [131] 169,0,141,33,208,76,49,234
  41. 450 [143] f3 directory
  42. 460 [131] 32,142,206,169,2,162,230,160,207,32,189,255,169,1,162,8,160,0
  43. 470 [131] 32,186,255,32,192,255,162,1,32,198,255,32,228,255
  44. 480 [131] 201,1,240,3,24,144,102,32,228,255,32,228,255,32,228,255
  45. 490 [131] 32,228,255,170,32,228,255,32,205,189,169,32,32,210,255,162,25
  46. 500 [131] 32,228,255,32,210,255,202,208,247,169,13,32,210,255,32,228,255
  47. 510 [131] 32,228,255,32,228,255,32,228,255,170,32,228,255,32,205,189
  48. 520 [131] 32,228,255,201,32,240,3,24,144,26,32,210,255
  49. 530 [131] 162,26,32,228,255,32,210,255,202,208,247,169,13,32,210,255
  50. 540 [131] 32,225,255,240,9,208,201
  51. 550 [131] 169,48,160,206,32,30,171,32,204,255,169,1,32,195,255,76,49,234
  52. 560 [131] 169,36,160,206,32,30,171,24,144,235
  53. 570 [143] ascii codes
  54. 580 [131] 36,48,82,85,78,0,83,65,86,69,0,76,79,65,68,0,76,73,83,84,0
  55.